/*
HTTXPlugin Configuration
$VER: HTTXPluginCFG 2.0 (1.5.97) by Gabriele Favrin (favrin@tin.it)
Based on HTTXConfig.awebrx by Amitrix
*/
Options Results
Options failat 999
'AllowCMD'
'GetCFG TEMPPATH'
If rc == 11 then do
address command 'C:RequestChoice >NIL: HTTXPlugin "Sorry, this plugin requires at least AWeb 3.0 !" "Sigh"'
exit 20
end
fname=result||"HTTXconfig.html"
save_len = 77
save_indent = 3
save_ansi = 0
save_7bit = 0
save_hrmode = 1
save_noalign = 0
save_filenote = 0
save_noheader = 0
save_href = 0
save_img = 0
save_badhtml = 0
print_len = 77
print_indent = 3
print_ansi = 0
print_7bit = 0
print_hrmode = 1
print_noalign = 0
print_noheader = 0
print_href = 0
print_img = 0
print_badhtml = 0
prefs_info=0
prefs_report=1
prefs_preview=0
prefs_savedir="ram:"
local_storagemode = "Use"
args = ""
parse ARG args
parse SOURCE prog_type result_flag called resolved ext host .
If args == "" then do
If Open(rcfg_fp, 'ENV:HTTXPlugin.config', 'R') then do
cfg=ReadLN(rcfg_fp)
If Left(cfg, 6) == "prefs_" then do
interpret translate(strip(cfg), ';',' ')
prefs_savedir=Translate(prefs_savedir, ' ', ';')
End
Call Close(rcfg_fp)
End
If Open(save_config_fp, "ENV:HTTX.prefs", 'R') then do
save_config_string = Upper(ReadLN(save_config_fp))
Call Close(save_config_fp)
If Pos('LEN=', save_config_string) > 0 then
parse VAR save_config_string 'LEN='save_len .
If Pos('INDENT=', save_config_string) > 0 then
parse VAR save_config_string 'INDENT='save_indent .
If Pos('HRMODE=', save_config_string) > 0 then
parse VAR save_config_string 'HRMODE='save_hrmode .
save_noalign = Pos('NOALIGN', save_config_string) > 0
save_ansi = Pos('ANSI', save_config_string) > 0
save_7bit = Pos('7BIT', save_config_string) > 0
save_filenote = Pos('FILENOTE', save_config_string) > 0
save_noheader = Pos('NOHEADER', save_config_string) > 0
save_href = Pos('HREF', save_config_string) > 0
save_img = Pos('IMG', save_config_string) > 0
save_badhtml = Pos('BADHTML', save_config_string) > 0
End
If Open(print_config_fp, "ENV:HTTXprt.prefs", 'R') then do
print_config_string = ReadLN(print_config_fp)
Call Close(print_config_fp)
If Pos('LEN=',print_config_string) > 0 then
parse VAR print_config_string 'LEN='print_len .
If Pos('INDENT=',print_config_string) > 0 then
parse VAR print_config_string 'INDENT='print_indent .
If Pos('HRMODE=',print_config_string) > 0 then
parse VAR print_config_string 'HRMODE='print_hrmode .
print_noalign = Pos('NOALIGN', print_config_string) > 0
print_ansi = Pos('ANSI', print_config_string) > 0
print_7bit = Pos('7BIT', print_config_string) > 0
print_noheader = Pos('NOHEADER', print_config_string) > 0
print_href = Pos('HREF', print_config_string) > 0
print_img = Pos('IMG', print_config_string) > 0
print_badhtml = Pos('BADHTML', print_config_string) > 0
End
If Open(HTML_fp,fname, 'W') then do
html='HTTXPlugin - configuration
Plugin configurationSave optionsHTTX by Gabriele Favrin (favrin@tin.it)'
Call WriteCh(html_fp, html)
Call Close(html_fp)
'Open file://localhost/'fname 'RELOAD'
'Wait file://localhost/'fname
address command 'C:Delete QUIET' fname
End
End
else do
interpret translate(strip(args),';',' ')
save_config_string = 'LEN='save_len 'INDENT='save_indent
print_config_string = 'LEN='print_len 'INDENT='print_indent
If save_ansi then
save_config_string = save_config_string 'ANSI'
If save_7bit then
save_config_string = save_config_string '7BIT'
If save_hrmode ~= 1 then
save_config_string = save_config_string 'HRMODE='save_hrmode
If save_noalign then
save_config_string = save_config_string 'NOALIGN'
If save_filenote then
save_config_string = save_config_string 'FILENOTE'
If save_noheader then do
save_config_string = save_config_string 'NOHEADER'
end
else do
save_config_string = save_config_string 'GETNOTE'
end
If save_href then
save_config_string = save_config_string 'HREF'
If save_img then
save_config_string = save_config_string 'IMG'
If save_badhtml then
save_config_string = save_config_string 'BADHTML'
If print_ansi then
print_config_string = print_config_string 'ANSI'
If print_7bit then
print_config_string = print_config_string '7BIT'
If print_hrmode ~= 1 then
print_config_string = print_config_string 'HRMODE='print_hrmode
If print_noalign then
print_config_string = print_config_string 'NOALIGN'
If print_noheader then do
print_config_string = print_config_string 'NOHEADER'
end
else do
print_config_string = print_config_string 'GETNOTE'
end
If print_href then
print_config_string = print_config_string 'HREF'
If print_img then
print_config_string = print_config_string 'IMG'
If print_badhtml then
print_config_string = print_config_string 'BADHTML'
If local_storagemode = "Save" then
Call do_save('ENVARC:')
Call do_save('ENV:')
/*'GO BACK'*/
address command 'UnsetEnv HTTXPlugin.savedir'
End
exit 0
do_save:
parse ARG dest_dir
If Open(save_config_fp, dest_dir||"HTTX.prefs", 'W') then do
Call WriteLN(save_config_fp, translate(save_config_string,,';'))
Call Close(save_config_fp)
End
If Open(print_config_fp, dest_dir||"HTTXprt.prefs", 'W') then do
Call WriteLN(print_config_fp, translate(print_config_string,,';'))
Call Close(print_config_fp)
End
prefs_savedir=Translate(prefs_savedir, ' ', ';')
last_char=right(prefs_savedir, 1)
if (last_char ~= ":") & (last_char ~= "/") then do
prefs_savedir=prefs_savedir"/"
end
If Open(plugin_config_fp, dest_dir||"HTTXPlugin.config", 'W') then do
Call WriteLN(plugin_config_fp, 'prefs_info="'prefs_info'" prefs_preview="'prefs_preview'" prefs_report="'prefs_report'" prefs_savedir="'prefs_savedir'"')
Call Close(plugin_config_fp)
End
return
html_radial:
parse ARG text , variable_name , variable_name2
html=html||'
'text'
'
If value(variable_name) then do
html=html||'ON OFF
'
End
else do
html=html||'ON OFF
'
End
If value(variable_name2) then do
html=html||'ON OFF
'
End
else do
html=html||'ON OFF
'
End
return
html_radial_single:
parse ARG text , variable_name
html=html||'
'text'
'
If value(variable_name) then do
html=html||'ON OFF